home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DS-CD ROM 2 1993 August
/
DS CD-ROM 2.Ausgabe (August 1993).iso
/
programm
/
ds0257
/
lib.exe
/
ASSIGN.LIB
< prev
next >
Wrap
Text File
|
1992-02-02
|
993b
|
89 lines
#IF !LIB4A86
#ELSE
#IF !INTERN_LIB4A86_S
INTERN_LIB4A86_S EQU 01
JMP START
#ENDIF
#ENDIF
ASSIGN? MACRO
MOV AX,0600H
INT 02FH
CMP AL,0FFH
#EM
ASSIGNLW:
PUSH ES,BX
CALL INTERN_GETASSIGNTABLE
JC >L8
MOV AX,BX
XOR BH,BH
XCHG ES:[BX+0102H],AH
JMP >L9
ASSIGNLW?:
PUSH ES,BX
MOV AH,AL
CALL INTERN_GETASSIGNTABLE
JC >L8
XOR BH,BH
MOV AL,ES:[BX+0102H]
CMP AL,BL
CLC
JMP >L9
L8:
STC
L9:
POP BX,ES
RET
INTERN_GETASSIGNTABLE:
MOV BX,AX
ASSIGN?
STC
JNZ >L8
INC AL
INC AL
OR BL,BL
JZ >L8
CMP BL,26XD
JA >L8
INC AL
OR BH,BH
JZ >L8
CMP BH,26XD
JA >L8
MOV AX,0601H
INT 02FH
CLC
RET
L8:
STC
RET
#IF !INTERN_CMARK0
INTERN_CMARK0 EQU 01H
INTERN_CMARK1:
PUSH BP
MOV BP,SP
MOV BX,06H
SUB CH,[BP+SI]
SUB AH,[BX+SI]
DEC SP
DEC CX
INC DX
XOR AL,041H
CMP B[02820H],DH
INC BX
SUB W[BX+SI],SP
INC DX
CS AND B[BP+DI+043H],DL
DEC AX
INC BP
DEC BP
DEC BP
INC BP
PUSH DX
AND B[BP+SI],CH
SUB CH,[BP+SI]
POP DX
MOV SP,BP
POP BP
RET
#ENDIF